home *** CD-ROM | disk | FTP | other *** search
/ Ham Radio 2000 / Ham Radio 2000.iso / ham2000 / misc / kc1qfnts / info.frm < prev    next >
Text File  |  1995-03-18  |  6KB  |  268 lines
  1. VERSION 2.00
  2. Begin Form Info 
  3.    BorderStyle     =   0  'None
  4.    Caption         =   "Information and Help"
  5.    ClientHeight    =   6915
  6.    ClientLeft      =   -30
  7.    ClientTop       =   360
  8.    ClientWidth     =   9600
  9.    FontBold        =   -1  'True
  10.    FontItalic      =   0   'False
  11.    FontName        =   "MS Sans Serif"
  12.    FontSize        =   9.75
  13.    FontStrikethru  =   0   'False
  14.    FontUnderline   =   0   'False
  15.    Height          =   7320
  16.    Left            =   -90
  17.    LinkTopic       =   "Form1"
  18.    MaxButton       =   0   'False
  19.    MinButton       =   0   'False
  20.    ScaleHeight     =   6915
  21.    ScaleWidth      =   9600
  22.    Top             =   15
  23.    Width           =   9720
  24.    Begin SSCommand Command3D8 
  25.       Caption         =   "More Amateur Radio Info"
  26.       Font3D          =   0  'None
  27.       ForeColor       =   &H00000000&
  28.       Height          =   705
  29.       Left            =   120
  30.       Picture         =   INFO.FRX:0000
  31.       TabIndex        =   8
  32.       Top             =   5865
  33.       Width           =   2865
  34.    End
  35.    Begin SSCommand Command3D7 
  36.       Caption         =   "More Radiogram Info"
  37.       Font3D          =   0  'None
  38.       ForeColor       =   &H00000000&
  39.       Height          =   705
  40.       Left            =   105
  41.       Picture         =   INFO.FRX:0302
  42.       TabIndex        =   7
  43.       Top             =   5850
  44.       Width           =   2835
  45.    End
  46.    Begin PictureBox Picture1 
  47.       FontBold        =   -1  'True
  48.       FontItalic      =   0   'False
  49.       FontName        =   "MS Sans Serif"
  50.       FontSize        =   9.75
  51.       FontStrikethru  =   0   'False
  52.       FontUnderline   =   0   'False
  53.       Height          =   4755
  54.       Left            =   30
  55.       ScaleHeight     =   4725
  56.       ScaleWidth      =   9525
  57.       TabIndex        =   6
  58.       Top             =   0
  59.       Width           =   9555
  60.    End
  61.    Begin SSCommand Command3D6 
  62.       Caption         =   "Return to Main Menu"
  63.       Font3D          =   0  'None
  64.       ForeColor       =   &H00000000&
  65.       Height          =   765
  66.       Left            =   6735
  67.       Picture         =   INFO.FRX:0604
  68.       TabIndex        =   5
  69.       Top             =   5865
  70.       Width           =   2820
  71.    End
  72.    Begin SSCommand Command3D5 
  73.       Caption         =   "Quit Info"
  74.       Enabled         =   0   'False
  75.       Font3D          =   0  'None
  76.       ForeColor       =   &H00000000&
  77.       Height          =   705
  78.       Left            =   3270
  79.       Picture         =   INFO.FRX:0906
  80.       TabIndex        =   4
  81.       Top             =   5880
  82.       Width           =   3180
  83.    End
  84.    Begin SSCommand Command3D4 
  85.       Caption         =   "More Amateur Radio Info"
  86.       Enabled         =   0   'False
  87.       Font3D          =   0  'None
  88.       ForeColor       =   &H00000000&
  89.       Height          =   705
  90.       Left            =   105
  91.       Picture         =   INFO.FRX:0C08
  92.       TabIndex        =   3
  93.       Top             =   5850
  94.       Width           =   2865
  95.    End
  96.    Begin SSCommand Command3D3 
  97.       Caption         =   "Voicegram Information"
  98.       Font3D          =   0  'None
  99.       ForeColor       =   &H00000000&
  100.       Height          =   705
  101.       Left            =   6750
  102.       Picture         =   INFO.FRX:0F0A
  103.       TabIndex        =   2
  104.       Top             =   4995
  105.       Width           =   2835
  106.    End
  107.    Begin SSCommand Command3D2 
  108.       Caption         =   "Origination/Delivery of Radiograms"
  109.       Font3D          =   0  'None
  110.       ForeColor       =   &H00000000&
  111.       Height          =   690
  112.       Left            =   3240
  113.       Picture         =   INFO.FRX:120C
  114.       TabIndex        =   1
  115.       Top             =   4980
  116.       Width           =   3225
  117.    End
  118.    Begin SSCommand Command3D1 
  119.       Caption         =   "Amateur Radio Information"
  120.       Font3D          =   0  'None
  121.       ForeColor       =   &H00000000&
  122.       Height          =   735
  123.       Left            =   120
  124.       Picture         =   INFO.FRX:150E
  125.       TabIndex        =   0
  126.       Top             =   4980
  127.       Width           =   2895
  128.    End
  129. End
  130.  
  131. Sub Command3D1_Click ()
  132. picture1.Visible = True
  133. picture1.Cls
  134. picture1.Height = 5700
  135. command3d4.Visible = True
  136. command3d4.Enabled = True
  137. command3d5.Enabled = True
  138. command3d8.Visible = False
  139. command3d7.Visible = False
  140.  
  141. Open "\ky1t-nts\info.1" For Input As #1
  142. Do While Not EOF(1)
  143. Line Input #1, x$
  144. picture1.Print x$
  145. Loop
  146. Close
  147.  
  148. End Sub
  149.  
  150. Sub Command3D2_Click ()
  151. picture1.Visible = True
  152. picture1.Cls
  153. picture1.Height = 5700
  154.  
  155. command3d5.Enabled = True
  156. command3d7.Visible = True
  157. command3d7.Enabled = True
  158. command3d4.Visible = False
  159. command3d8.Visible = False
  160.  
  161. Open "\ky1t-nts\info.4" For Input As #1
  162. Do While Not EOF(1)
  163. Line Input #1, x$
  164. picture1.Print x$
  165. Loop
  166. Close
  167.  
  168.  
  169. End Sub
  170.  
  171. Sub Command3D3_Click ()
  172. picture1.Visible = True
  173. picture1.Cls
  174. picture1.Height = 5700
  175.  
  176. command3d5.Enabled = True
  177. command3d7.Visible = False
  178.  
  179. Open "c:\ky1t-nts\info.6" For Input As #1
  180. Do While Not EOF(1)
  181. Line Input #1, x$
  182. picture1.Print x$
  183. Loop
  184. Close
  185.  
  186.  
  187. End Sub
  188.  
  189. Sub Command3D4_Click ()
  190. picture1.Visible = True
  191. picture1.Height = 5700
  192. command3d4.Visible = False
  193. command3d7.Visible = True
  194. command3d5.Visible = True
  195. command3d8.Visible = True
  196. command3d8.Enabled = True
  197. picture1.Cls
  198. Open "\ky1t-nts\info.2" For Input As #1
  199. Do While Not EOF(1)
  200. Line Input #1, x$
  201. picture1.Print x$
  202. Loop
  203. Close
  204.  
  205.  
  206.  
  207. End Sub
  208.  
  209. Sub Command3D5_Click ()
  210. picture1.Height = 4755
  211. picture1.Visible = False
  212. command3d4.Enabled = False
  213. command3d5.Enabled = False
  214. command3d7.Visible = True
  215. command3d7.Enabled = True
  216. End Sub
  217.  
  218. Sub Command3D6_Click ()
  219. info.Hide
  220. ky1tnts.Show
  221. End Sub
  222.  
  223. Sub Command3D7_Click ()
  224. picture1.Visible = True
  225. picture1.Height = 5700
  226. command3d4.Visible = False
  227. command3d7.Enabled = False
  228. picture1.Cls
  229.  
  230. Open "\ky1t-nts\info.5" For Input As #1
  231.  
  232.  
  233. Do While Not EOF(1)
  234. Line Input #1, x$
  235. picture1.Print x$
  236. Loop
  237. Close
  238.  
  239. End Sub
  240.  
  241. Sub Command3D8_Click ()
  242. command3d8.Enabled = False
  243. command3d5.Enabled = True
  244. picture1.Cls
  245. Open "\ky1t-nts\info.3" For Input As #1
  246. Do While Not EOF(1)
  247. Line Input #1, x$
  248. picture1.Print x$
  249. Loop
  250. Close
  251.  
  252.  
  253.  
  254. End Sub
  255.  
  256. Sub Form_Activate ()
  257. command3d7.Visible = False
  258. picture1.Height = 4755
  259. picture1.Height = 4755
  260. command3d4.Enabled = False
  261. command3d5.Enabled = False
  262. command3d7.Visible = False
  263. command3d8.Visible = False
  264.  
  265.  
  266. End Sub
  267.  
  268.